home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / stats / cadchem1.arj / CCD016.INF < prev    next >
Text File  |  1994-03-15  |  5KB  |  226 lines
  1. DefineVariables
  2. Number [ReturnVal1]
  3. Number [ReturnVal2]
  4. number [ReturnVal3]
  5. Number [ErrCount]
  6. Directory [windir]
  7. Directory [winsdir]
  8. Logical [EnKeyb]
  9. Logical [NetAvail]
  10. Logical [MathPres]
  11. Logical [CDAvail]
  12. Text [DispType]
  13. Number [XMSAvail]
  14. Number [ExtmemPagesActive]
  15. Number [ExtmemPagesAvail]
  16. Number [ExtMemAvail]
  17. Number [ExtMemPres]
  18. Number [ExpMempgavail]
  19. Number [ExpMempgactive]
  20.  
  21. Text [osver]
  22. Text [DosVer]
  23. Text [EmsVer]
  24.  
  25. Text [ProdExecutable]
  26. Text [GroupTitle]
  27. Text [GroupFile]
  28. Text [ExistingGroupName]
  29. Text [InstDir]
  30.  
  31. Text [FactsIconF]
  32.  
  33. Text [IconTitle]
  34. Text [IconFile]
  35.  
  36. EndDefineVariables
  37.  
  38. [EnKeyb] := NoCharacter
  39. [NetAvail] := NoCharacter
  40. [MathPres] := NoCharacter
  41. [CDAvail] := NoCharacter
  42.  
  43. Do SetupDisplay
  44. Do CheckHardware
  45.  
  46. if [errcount] > 1
  47. Dialog UseHeader "Encountered Some Problems"
  48. .L Our installation has encountered the following problems,
  49. .L you can continue to install or exit installation.
  50. [Array1][1]
  51. [Array1][2]
  52. [Array1][3]
  53. [Array1][4]
  54. [Array1][5]
  55. [Array1][6]
  56. [Array1][7]
  57. EndDialog
  58. endif
  59. ShowBitMap 1 @xy(1,1)
  60.  
  61. :start
  62.  
  63. DialogBox 150 80 UseHeader "Installing CAD/Chem Demo 16clr 3.2" Returns [ReturnVal1] BlackOnLightGray
  64. Font "Helv" 8
  65. GroupBox @xy(5,4) 135 70 "Select Option"
  66. RadioButtonGroup Uses [ReturnVal2]
  67. RadioButton @xy(10,17) 120 12 "&Install CAD/Chem Demo 16clr"
  68. RadioButton @xy(10,30) 120 12 "&Hardware Summary"
  69. RadioButton @xy(10,43) 120 12 "&Exit Installation"
  70. PushButton @xy(60,55) 38 14 "OK" OK
  71. EndDialogBox
  72.  
  73.  
  74. if [ReturnVal2] = 1
  75. Do Install
  76. goto start
  77. endif
  78.  
  79. if [ReturnVal2] = 2
  80. Do HardwareSum
  81. Goto start
  82. endif
  83.  
  84. if [ReturnVal2] = 3
  85. SoLong
  86. Endif
  87.  
  88. if [RetrunVal2] = 0
  89. Dialog
  90. Click on one of the option buttons.
  91. EndDialog
  92. Goto start
  93. Enddialog
  94. endif
  95.  
  96. Procedure SetupDisplay
  97. SetDefaultBitMap Off
  98. SetBackGroundColor 0 0 64 191 64 0 TopToBottom
  99.  
  100. SetPopupAttrTo YellowOnBlue
  101. if FileIsInLibrary CADCHEM.BMP
  102. if FIleExists ShadowDirectory\CADCHEM.BMP
  103. DeleteFiles from ShadowDirectory Quietly
  104. CADCHEM.BMP
  105. EndDeletefiles
  106. endif
  107.  
  108. QueFiles to ShadowDirectory noinquiry
  109. CADCHEM.BMP
  110. EndQueFiles
  111. GetQuedFiles Quietly
  112. LoadBitmap 1 ShadowDirectory\CADCHEM.BMP
  113. endif
  114. ShowWindow maximized
  115.  
  116. EndProcedure
  117.  
  118. Procedure Install
  119. [installationdirectory] := CCD016
  120. DetermineInstallationDrive
  121. DetermineInstallationDirectory installationdrive:\[installationdirectory]
  122. QueAllFiles
  123. GetQuedFiles
  124. ChangeDirectoryto [InstallationDirectory]
  125. [ProdExecutable] := [InstallationDirectory]\CCD016.EXE
  126. [GroupTitle]  := CAD/Chem Demo
  127. [InstDir]        := [InstallationDirectory]
  128. [IconFile]     := CCDEMO.ICO
  129.  
  130. [IconTitle]      := CAD/Chem Demo 16clr
  131.  
  132. :top
  133. DialogBox 150 80 UseHeader "Install Icon" Returns [Number1]
  134. Font "Helv" 8
  135. RadioButtonGroup Uses [Number2]
  136. RadioButton @xy(6,6) 150 12 "We can install Icon in an &existing group"
  137. RadioButton @xy(6,20) 150 12 "Or we can install Icon in a &new group"
  138. RadioButton @xy(6,34) 150 12 "Or we can &skip this part"
  139. PushButton @xy(60,60) 38 14 "OK" OK
  140. EndDialogBox
  141.  
  142. if [Number2] = 1
  143. [Array2] := GetProgramManagerGroupNames
  144.  
  145. DialogBox 177 70 UseHeader "Choose Group to Install Icon Into" GreenOnBlack Returns [Number7]
  146. ListBox @xy(15,7) 120 30 Uses [String1] LoadWith [Array2]  Border
  147. PushButton @xy(60,55) 38 14 "OK" OK
  148. EndDialogBox
  149. [ExistingGroupName] := [String1]
  150. if [ExistingGroupName] = BlankString
  151. popup no group selected, not installing icon
  152. else
  153. ProgramManagerDDE
  154. CreateGroup([ExistingGroupName])
  155. AddItem([ProdExecutable],[IconTitle],[InstallationDirectory]\[IconFile])
  156.  
  157. EndProgramManagerDDE
  158. endif
  159. endif
  160.  
  161. if [number2] = 2
  162. ProgramManagerDDE
  163. CreateGroup(CAD/Chem Demo)
  164. AddItem([ProdExecutable],[IconTitle],[InstallationDirectory]\[IconFile])
  165. EndProgramManagerDDE
  166. endif
  167.  
  168. if [Number2] = 3
  169. popup not installing icon
  170. endif
  171. EndProcedure
  172.  
  173.  
  174. Procedure CheckHardware
  175. [Number3] := 1
  176.  
  177. if VGA
  178. [DispType] := VGA
  179. endif
  180.  
  181. if  [DispType] = BlankString
  182. [Array1][[number3]] := Your Display adapter must be EGA or better.
  183. IncrementNumber [number3]
  184. endif
  185.  
  186. [windir] := [WindowsDirectory]
  187. [winsdir] := [WindowsSystemDirectory]
  188.  
  189. [ExtmemPagesActive] := ExtendedMemoryPagesActive
  190. [ExtmemPagesAvail] := ExtendedMemoryPagesAvailable
  191. [ExtMemAvail] := ExtendedMemoryAvailable
  192. [ExtMemPres] := ExtendedMemoryPresent
  193. [ExpMempgAvail] := ExpandedMemoryPagesAvailable
  194. [ExpMempgActive] := ExpandedMemoryPagesActive
  195. [osver] := OSVersion
  196. [DosVer] := DOSVersion
  197. [EmsVer] := EMSVersion
  198.  
  199.  
  200. if [DOSVer] < 3.3
  201. [Array1][[number3]] := You must have a DOS version of at least 3.3 or more
  202. IncrementNumber [number3]
  203. endif
  204.  
  205. [Errcount] := [Number3]
  206.  
  207. EndProcedure
  208.  
  209. Procedure HardwareSum
  210. Dialog
  211. Display Type : [DispType]
  212. DOS Version  : [DosVer]
  213. Extended Memory Available : [ExtMemAvail]
  214. Extended Memory Present : [ExtMemPres]
  215. Extended Memory Pages Active : [ExtMemPagesActive]
  216. Extended Memory Pages Available : [ExtMemPagesAvail]
  217. Expanded Memory Pages Available : [ExpmempgAvail]
  218. Expanded Memory Pages Active    : [ExpMempgactive]
  219.  
  220. Windows Directory  : [windir]
  221. Windows System Directory : [winsdir]
  222. EndDialog
  223.  
  224. EndProcedure
  225.  
  226.